100-tól kezdődően 3-mal csökkenő számsorozat kiíratása előltesztelő (while) ciklussal (Csokkeno.pas)

program Csokkeno;
uses crt;
var i,a,n:integer;
BEGIN
   write('n:=');
   readln(n);
   i:=1;
   a:=100;
   while(i<=n) do begin
      writeln(a);
      a:=a-3;
      i:=i+1;
      end;
END.



100-tól kezdődően 3-mal csökkenő számsorozat kiíratása for ciklussal (CsokkenoV1.pas)

 program CsokkenoV1;
uses crt;
var i,a,n:integer;
BEGIN
   write('n:=');
   readln(n);
   a:=100;
   for i:=1 to n do begin
      writeln(a);
      a:=a-3;
      end;
END.

 100-tól kezdődően 3-mal csökkenő számsorozat kiíratása hátultesztelő (repeat - until) ciklussal (CsokkenoV2.pas)

 program CsokkenoV2;
uses crt;
var i,a,n:integer;
BEGIN
   write('n:=');
   readln(n);
   i:=1;
   a:=100;
   repeat
      writeln(a);
      a:=a-3;
      i:=i+1;
   until(i>n);
END.